1 PRINT"[147]"
2 PRINT"INSERT DATA DISK IN DRIVE 8"
3 PRINT"PRESS 'D' WHEN DONE"
4 GET X$:IFX$=""THEN4
5 IF X$<>"D"THEN4
6 PRINT"FORMATING DISK PLEASE WAIT"
7 OPEN15,8,15,"N0:DATA DISK,01":CLOSE15
8 FORT=1TO1000:NEXT
9 PRINT"CREATING DATA FILE"
10 OPEN1,8,15
20 OPEN2,8,3,"0:LIST,L,"+CHR$(110)
30 GOSUB 900
40 PRINT#1,"P"CHR$(3)CHR$(0)CHR$(3)CHR$(1)
50 GOSUB 900
60 PRINT#2,0:PRINT#1,"P"CHR$(3)CHR$(0)CHR$(3)CHR$(1)
70 INPUT#2,X:PRINTX
300 CLOSE2:CLOSE1:PRINT"INSERT PROGRAM DISK":PRINT"LOAD AND RUN MAIL":END
900 INPUT#1,E,B$,C,D:PRINTE
910 IF(E=50) OR (E<20)THEN RETURN
920 PRINT E;B$;C;D:STOP:RETURN